home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 41.zip / BS1 part 41 / TEX files.adf / manual / fontlist.tex < prev   
Text File  |  1988-02-21  |  9KB  |  233 lines
  1. %
  2. %   This file prints out the font samples at the end of the AmigaTeX
  3. %   manual.
  4. %
  5. \tracinglostchars=0
  6. \tolerance=1000
  7. \raggedbottom
  8. \nopagenumbers
  9. \parindent=0pt
  10. \newlinechar=`@
  11. \hyphenpenalty=200
  12. \doublehyphendemerits=30000
  13.  
  14. \newcount\m \newcount\n \newcount\p \newdimen\dim
  15. \chardef\other=12
  16.  
  17. \def\today{\ifcase\month\or
  18.   January\or February\or March\or April\or May\or June\or
  19.   July\or August\or September\or October\or November\or December\fi
  20.   \space\number\day, \number\year}
  21. \def\hours{\n=\time \divide\n 60
  22.   \m=-\n \multiply\m 60 \advance\m \time
  23.   \twodigits\n\twodigits\m}
  24. \def\twodigits#1{\ifnum #1<10 0\fi \number#1}
  25.  
  26. \def\setbaselineskip{\setbox0=\hbox{\n=0
  27. \loop\char\n \ifnum \n<255 \advance\n 1 \repeat}
  28. \baselineskip=6pt \advance\baselineskip\ht0 \advance\baselineskip\dp0 }
  29.  
  30. \def\setchar#1{{\escapechar-1\message{\string#1 character = }%
  31.   \def\do##1{\catcode`##1=\other}\dospecials
  32.   \read-1 to\next
  33.   \expandafter\finsetchar\next\next#1}}
  34. \def\finsetchar#1#2\next#3{\global\chardef#3=`#1
  35.   \ifnum #3=`\# \global\chardef#3=#2 \fi}
  36. \def\promptthree{\setchar\background
  37.   \setchar\starting \setchar\ending}
  38.  
  39. \def\init#1{\global\def\fontname{#1}
  40.   \font\testfont=\fontname
  41.   \goodbreak
  42.   \leftline{\sevenrm Test of \fontname\unskip\ on \today\ at \hours}
  43.   \medskip
  44.   \testfont \setbaselineskip
  45.   \ifdim\fontdimen6\testfont<10pt \rightskip=0pt plus 20pt
  46.   \else\rightskip=0pt plus 2em \fi
  47.   \spaceskip=\fontdimen2\testfont % space between words (\raggedright)
  48.   \xspaceskip=\fontdimen2\testfont \advance\xspaceskip by\fontdimen7\testfont}
  49.  
  50. \def\mixture{\promptthree \domix\mixpattern}
  51. \def\alternation{\promptthree \domix\altpattern}
  52. \def\mixpattern{\0\1\0\0\1\1\0\0\0\1\1\1\0\1}
  53. \def\altpattern{\0\1\0\1\0\1\0\1\0\1\0\1\0\1\0\1\0}
  54. \def\domix#1{\par\chardef\0=\background \n=\starting
  55.   \loop \chardef\1=\n #1\endgraf
  56.   \ifnum \n<\ending \advance\n 1 \repeat}
  57.  
  58. \def\!{\discretionary{\background}{\background}{\background}}
  59. \def\series{\promptthree \!\doseries\starting\ending\par}
  60. \def\doseries#1#2{\n=#1\loop\char\n\!\ifnum\n<#2\advance\n 1 \repeat}
  61. \def\complower{\!\doseries{`a}{`z}\doseries{'31}{'34}\par}
  62. \def\compupper{\!\doseries{`A}{`Z}\doseries{'35}{'37}\par}
  63. \def\compdigs{\!\doseries{`0}{`9}\par}
  64. \def\alphabet{\setchar\background\complower}
  65. \def\ALPHABET{\setchar\background\compupper}
  66.  
  67. \def\lowers{\docomprehensive\complower{`a}{`z}{'31}{'34}}
  68. \def\uppers{\docomprehensive\compupper{`A}{`Z}{'35}{'37}}
  69. \def\digits{\docomprehensive\compdigs{`0}{`4}{`5}{`9}}
  70. \def\docomprehensive#1#2#3#4#5{\par\chardef\background=#2
  71.   \loop{#1} \ifnum\background<#3\m=\background\advance\m 1
  72.   \chardef\background=\m \repeat \chardef\background=#4
  73.   \loop{#1} \ifnum\background<#5\m=\background\advance\m 1
  74.   \chardef\background=\m \repeat}
  75.  
  76. \def\names{ {\AA}ngel\aa\ Beatrice Claire
  77.   Diana \'Erica Fran\c{c}oise Ginette H\'el\`ene Iris
  78.   Jackie K\=aren {\L}au\.ra Mar{\'\i}a N\H{a}ta{\l}{\u\i}e Octave
  79.   Pauline Qu\^eneau Roxanne Sabine T\~a{\'\j}a Ur\v{s}ula
  80.   Vivian Wendy Xanthippe Yv{\o}nne Z\"azilie\par}
  81. \def\punct{\par\dopunct{min}\dopunct{pig}\dopunct{hid}
  82.   \dopunct{HIE}\dopunct{TIP}\dopunct{fluff}
  83.   \$1,234.56 + 7/8 = 9\% @ \#0\par}
  84. \def\dopunct#1{#1,\ #1:\ #1;\ `#1'\ ?`#1?\ !`#1!\ (#1)\ [#1]\ #1*\ #1.\par}
  85.  
  86. \def\bigtest{\sample
  87.   hamburgefonstiv HAMBURGEFONSTIV\par
  88.   \names \punct \lowers \uppers \digits}
  89.  
  90. \def\math{\textfont1=\testfont \skewchar\testfont='177
  91.  \mathchardef\Gamma="100 \mathchardef\Delta="101
  92.  \mathchardef\Theta="102 \mathchardef\Lambda="103 \mathchardef\Xi="104
  93.  \mathchardef\Pi="105 \mathchardef\Sigma="106 \mathchardef\Upsilon="107
  94.  \mathchardef\Phi="108 \mathchardef\Psi="109 \mathchardef\Omega="10A
  95.  \def\trial{$\\A \\B \\C \\D \\E \\F \\G \\H \\I \\J \\K \\L \\M \\N \\O
  96.   \\P \\Q \\R \\S \\T \\U \\V \\W \\X \\Y \\Z \\a \\b \\c \\d \\e \\f \\g
  97.   \\h \\\i \\\j \\k \\l \\m \\n \\o \\p \\q \\r \\s \\t \\u \\v \\w \\x \\y
  98.   \\z \\\alpha \\\beta \\\gamma \\\delta \\\epsilon \\\zeta \\\eta \\\theta
  99.   \\\iota \\\kappa \\\lambda \\\mu \\\nu \\\xi \\\pi \\\rho \\\sigma \\\tau
  100.   \\\upsilon \\\phi \\\chi \\\psi \\\omega \\\vartheta \\\varpi \\\varphi
  101.   \\\Gamma \\\Delta \\\Theta \\\Lambda \\\Xi \\\Pi \\\Sigma \\\Upsilon
  102.   \\\Phi \\\Psi \\\Omega \\\partial \\\ell \\\wp$\par}
  103.  \def\i{i} \def\j{j}
  104.  \def\\##1{|##1|+}\trial
  105.  \def\\##1{##1_2+}\trial
  106.  \def\\##1{##1^2+}\trial
  107.  \def\\##1{##1/2+}\trial
  108.  \def\\##1{2/##1+}\trial
  109.  \def\\##1{##1,{}+}\trial
  110.  \def\\##1{d##1+}\trial
  111.  \let\i=\imath \let\j=\jmath \def\\##1{\hat##1+}\trial}
  112.  
  113. \def\oct#1{\hbox{\rm\'{}\kern-.2em\it#1\/\kern.05em}} % octal constant
  114. \def\hex#1{\hbox{\rm\H{}\tt#1}} % hexadecimal constant
  115. \def\setdigs#1"#2{\gdef\h{#2}% \h=hex prefix; \0\1=corresponding octal
  116.  \m=\n \divide\m by 64 \xdef\0{\the\m}%
  117.  \multiply\m by-64 \advance\m by\n \divide\m by 8 \xdef\1{\the\m}}
  118. \def\testrow{\setbox0=\hbox{\penalty 1\def\\{\char"\h}%
  119.  \\0\\1\\2\\3\\4\\5\\6\\7\\8\\9\\A\\B\\C\\D\\E\\F%
  120.  \global\p=\lastpenalty}} % \p=1 if none of the characters exist
  121. \def\oddline{\cr
  122.   \noalign{\nointerlineskip}
  123.   \multispan{19}\hrulefill&
  124.   \setbox0=\hbox{\lower 2.3pt\hbox{\hex{\h x}}}\smash{\box0}\cr
  125.   \noalign{\nointerlineskip}}
  126. \newif\ifskipping
  127. \def\evenline{\loop\skippingfalse
  128.  \ifnum\n<256 \m=\n \divide\m 16 \chardef\next=\m
  129.  \expandafter\setdigs\meaning\next \testrow
  130.  \ifnum\p=1 \skippingtrue \fi\fi
  131.  \ifskipping \global\advance\n 16 \repeat
  132.  \ifnum\n=256 \let\next=\endchart\else\let\next=\morechart\fi
  133.  \next}
  134. \def\morechart{\cr\noalign{\hrule\penalty5000}
  135.  \chartline \oddline \m=\1 \advance\m 1 \xdef\1{\the\m}
  136.  \chartline \evenline}
  137. \def\chartline{&\oct{\0\1x}&&\:&&\:&&\:&&\:&&\:&&\:&&\:&&\:&&}
  138. \def\chartstrut{\lower4.5pt\vbox to14pt{}}
  139. \def\table{$$\global\n=0
  140.   \halign to\hsize\bgroup
  141.     \chartstrut##\tabskip0pt plus10pt&
  142.     &\hfil##\hfil&\vrule##\cr
  143.     \lower6.5pt\null
  144.     &&&\oct0&&\oct1&&\oct2&&\oct3&&\oct4&&\oct5&&\oct6&&\oct7&\evenline}
  145. \def\endchart{\cr\noalign{\hrule}
  146.   \raise11.5pt\null&&&\hex 8&&\hex 9&&\hex A&&\hex B&
  147.   &\hex C&&\hex D&&\hex E&&\hex F&\cr\egroup$$\par}
  148. \def\:{\setbox0=\hbox{\char\n}%
  149.   \ifdim\ht0>7.5pt\reposition
  150.   \else\ifdim\dp0>2.5pt\reposition\fi\fi
  151.   \box0\global\advance\n 1 }
  152. \def\reposition{\setbox0=\vbox{\kern2pt\box0}\dim=\dp0
  153.   \advance\dim 2pt \dp0=\dim}
  154. \def\centerlargechars{
  155.   \def\reposition{\setbox0=\hbox{$\vcenter{\kern2pt\box0\kern2pt}$}}}
  156.  
  157. \def\text{{\advance\baselineskip-4pt
  158. \setbox0=\hbox{abcdefghijklmnopqrstuvwxyz}
  159. \ifdim\hsize>2\wd0 \ifdim 15pc>2\wd0 \hsize=15pc \else \hsize=2\wd0 \fi\fi
  160. On November 14, 1885, Senator \& Mrs.~Leland Stanford called
  161. together at their San Francisco mansion the 24~prominent men who had
  162. been chosen as the first trustees of The Leland Stanford Junior University.
  163. They handed to the board the Founding Grant of the University, which they
  164. had executed three days before. This document---with various amendments,
  165. legislative acts, and court decrees---remains as the University's charter.
  166. In bold, sweeping language it stipulates that the objectives of the University
  167. are ``to qualify students for personal success and direct usefulness in life;
  168. and to promote the publick welfare by exercising an influence in behalf of
  169. humanity and civilization, teaching the blessings of liberty regulated by
  170. law, and inculcating love and reverence for the great principles of
  171. government as derived from the inalienable rights of man to life, liberty,
  172. and the pursuit of happiness.'' \moretext
  173. (!`THE DAZED BROWN FOX QUICKLY GAVE 12345--67890 JUMPS!)\par}}
  174. \def\moretext{?`But aren't Kafka's Schlo{\ss} and {\AE}sop's {\OE}uvres
  175. often na{\"\i}ve  vis-\`a-vis the d{\ae}monic ph{\oe}nix's official r\^ole
  176. in fluffy souffl\'es? }
  177. \def\omitaccents{\let\moretext=\relax}
  178.  
  179. \def\sample{\table\text}
  180. %
  181. %   Finally, the things we came here for.
  182. %
  183. \def\tab#1#2{\init{#1}\table #2\vfill\eject}
  184. \def\sam#1#2{\init{#1}\sample #2\vfill\eject}
  185. \def\note#1{\vskip\baselineskip{\rm #1}}
  186. \nopagenumbers
  187. \hoffset=0.5truein\hsize=6truein
  188. %
  189. \tab{circle10}{}
  190. \tab{circlew10}{}
  191. \sam{cmb10}{}
  192. \tab{cmbsy10}{}
  193. \sam{cmbx10}%
  194. {\note{This font is available in sizes of 5, 6, 7, 8, 9, 10, and 12 points.}}
  195. \sam{cmbxsl10}{}
  196. \sam{cmbxti10}{}
  197. \sam{cmcsc10}{}
  198. \sam{cmdunh10}{}
  199. \tab{cmex10}{}
  200. \sam{cmff10}{}
  201. \sam{cmfi10}{}
  202. \sam{cmfib8}{}
  203. \sam{cmitt10}{}
  204. \tab{cmmi10}%
  205. {\note{This font is available in sizes of 5, 6, 7, 8, 9, 10, and 12 points.}}
  206. \tab{cmmib10}{}
  207. \sam{cmr10}%
  208. {\note{This font is available in sizes of 5, 6, 7, 8, 9, 10, 12, and 17 points.}}
  209. \sam{cmsl10}%
  210. {\note{This font is available in sizes of 8, 9, 10, and 12 points.}}
  211. \sam{cmsltt10}{}
  212. \sam{cmss10}%
  213. {\note{This font is available in sizes of 8, 9, 10, 12, and 17 points.}}
  214. \sam{cmssbx10}{}
  215. \sam{cmssdc10}{}
  216. \sam{cmssi10}%
  217. {\note{This font is available in sizes of 8, 9, 10, 12, and 17 points.}}
  218. \sam{cmssq8}{}
  219. \sam{cmssqi8}{}
  220. \tab{cmsy10}%
  221. {\note{This font is available in sizes of 5, 6, 7, 8, 9, and 10 points.}}
  222. \sam{cmti10}%
  223. {\note{This font is available in sizes of 7, 8, 9, 10, and 12 points.}}
  224. \sam{cmtt10}%
  225. {\note{This font is available in sizes of 8, 9, 10, and 12 points.}}
  226. \sam{cmu10}{}
  227. \sam{cmvtt10}{}
  228. \tab{lasy10}%
  229. {\note{This font is available in sizes of 5, 6, 7, 8, 9, and 10 points.}}
  230. \tab{lasyb10}{}
  231. \tab{line10}{}
  232. \tab{linew10}{}
  233.